home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 November / Chip_1999-11_cd.bin / tema / GoLive / golive4try.exe / GoLive 4.0 Tryout / data1.cab / Apps / PDFL40.DLL / PSPROCSET / 20 < prev    next >
Text File  |  1999-08-05  |  2KB  |  66 lines
  1. %%BeginResource: procset spots
  2. %%Version: 4.0 1
  3. %%Copyright: Copyright 1987-1999 Adobe Systems Incorporated. All Rights Reserved.
  4. %%Title: Predefined (named) spot functions for PDF
  5. 20 dict dup begin
  6. /CosineDot
  7. { 180 mul cos exch 180 mul cos add 2 div } bd
  8. /Cross
  9. { abs exch abs 2 copy gt { exch } if pop neg } bd
  10. /Diamond
  11. { abs exch abs 2 copy add .75 le
  12. { dup mul exch dup mul add 1 exch sub }
  13. { 2 copy add 1.23 le
  14. { .85 mul add 1 exch sub }
  15. { 1 sub dup mul exch 1 sub dup mul add 1 sub }
  16. ifelse }
  17. ifelse } bd
  18. /Double
  19. { exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add } bd
  20. /DoubleDot
  21. { 2 { 360 mul sin 2 div exch } repeat add } bd
  22. /Ellipse
  23. { abs exch abs 2 copy 3 mul exch 4 mul add 3 sub dup 0 lt
  24. { pop dup mul exch .75 div dup mul add 4 div
  25. 1 exch sub }
  26. { dup 1 gt
  27. {pop 1 exch sub dup mul exch 1 exch sub
  28. .75 div dup mul add 4 div 1 sub }
  29. { .5 exch sub exch pop exch pop }
  30. ifelse }
  31. ifelse } bd
  32. /EllipseA
  33. { dup mul .9 mul exch dup mul add 1 exch sub } bd
  34. /EllipseB
  35. { dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub } bd
  36. /EllipseC
  37. { dup mul .9 mul exch dup mul add 1 exch sub } bd
  38. /InvertedDouble
  39. { exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add neg } bd
  40. /InvertedDoubleDot
  41. { 2 { 360 mul sin 2 div exch } repeat add neg } bd
  42. /InvertedEllipseA
  43. { dup mul .9 mul exch dup mul add 1 sub } bd
  44. /InvertedSimpleDot
  45. { dup mul exch dup mul add 1 sub } bd
  46. /Line
  47. { exch pop abs neg } bd
  48. /LineX
  49. { pop } bd
  50. /LineY
  51. { exch pop } bd
  52. /Rhomboid
  53. { abs exch abs 0.9 mul add 2 div } bd
  54. /Round
  55. { abs exch abs 2 copy add 1 le
  56. { dup mul exch dup mul add 1 exch sub }
  57. { 1 sub dup mul exch 1 sub dup mul add 1 sub }
  58. ifelse } bd
  59. /SimpleDot
  60. { dup mul exch dup mul add 1 exch sub } bd
  61. /Square
  62. { abs exch abs 2 copy lt { exch } if pop neg } bd
  63. end
  64. { /Function defineRes pop } forall
  65. %%EndResource
  66.